home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh9x / sh94a.d64 / turtle-demo 8 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  608b  |  24 lines
  1. 1 REM TURTLE-DEMO: 'UNORDNUNG'
  2. 2 REM N. HEUSLER 11.91
  3. 3 :
  4. 10 SYS49152
  5. 20 INPUT"RECHTECKGROESSE   20[157][157][157][157]";H:DX=320/H-1:DY=200/H-1
  6. 30 INPUT"MAX. VERDREHUNG   45[157][157][157][157]";M
  7. 40 INPUT"MAX. TRANSLATION  15[157][157][157][157]";T
  8. 90 !INIT:!GRAPHICS
  9. 100 FORY=.TODY-1
  10. 110 FORX=.TODX-1
  11. 120 !PEN0:!MOVEX*H+T*RND(TI)*X/DX,Y*H+T*RND(TI)*X/DX:!ANGLE270
  12. 130 !TURNRM*RND(TI)*X/DX
  13. 140 !PEN1
  14. 150 FORQ=1TO4
  15. 160 !WALKH-1:!TURNR90:NEXT
  16. 200 NEXT
  17. 210 NEXT
  18. 300 !WINDOW217
  19. 310 PRINT" ES IST SCHON ERSTAUNLICH,  WAS MAN MIT
  20. 320 [153]" HILFE DIESER EINFACHEN  TURTLE-BEFEHLE
  21. 330 PRINT" PRAKTISCH  OHNE  ARBEITSAUFWAND  ALLES
  22. 340 [153]" MACHEN KANN - GANZ LEICHT!
  23. 350 !FINISH
  24.